﻿* Encoding: UTF-8.

/* Jones_Adviser to the King: Experts, Rationalization and Legitimacy
/* Study 3 Short-term vs long term
/* Data file Jones_Study3.sav

VALUE LABELS
Condition
1 'Long term'
2 'Short term'.
Execute.

VALUE LABELS
religiosity
1 ' Religious'
2 'Somewhat religious'
3 'Not religious'.
Execute.

VALUE LABELS
gender
1 'Female'
2 'Male'.
Execute.

VALUE LABELS
income
1 'Low'
4 'Middle'
7 'High'. 
Execute.

VARIABLE LABELS
supportplan 'Do you support or oppose the plan proposed by politicians [and international experts]'
pctsupportplan 'What percentage of Kuwait’s population do you think will support the plan proposed by politicians [and international experts]?'
pctsucceed 'On average, what percentage of projects like this would you say succeed?'
succeedcertain 'How certain are you that the plan proposed by the political leaders [and international experts] will succeed?'
techoptimism 'How confident are you that advanced technologies will improve global healthcare within the next five years?'
achoptimism 'If you had to guess, how many Nobel Prize winners do you think Kuwait will produce over the next 10 years? Enter a number.'
advice 'These experts will provide high quality advice'
ideas 'These experts will offer new and innovative ideas'
understanding 'These experts will have a good understanding of education in Kuwait'
money 'These experts are probably out for themselves and the money'.
Execute.

/* reverse score money item
IF (money = 1) money_r = 7.
IF (money = 2) money_r = 6.
IF (money = 3) money_r = 5.
IF (money = 4) money_r = 4.
IF (money = 5) money_r = 3.
IF (money = 6) money_r = 2.
IF (money = 7) money_r = 1.
Execute.

/* recode to 0 to 1 scale
compute supportplan_01 = supportplan/7.
compute pctsupportplan_01 = pctsupportplan/11.
compute pctsucceed_01 = pctsucceed/11.
compute succeedcertain_01 = succeedcertain/7.
compute advice_01 = advice/7.
compute understanding_01 = understanding/7.
compute ideas_01 = ideas/7.
compute money_r_01 = money_r/7.
compute techoptimism_01 = techoptimism/7. 
Execute.

/* Compute indices

compute support_index_01 = mean(supportplan_01,pctsupportplan_01).
compute success_index_01 = mean(pctsucceed_01,succeedcertain_01).
compute confidenceinexperts_01 = mean(advice_01, understanding_01,ideas_01,money_r_01).
Execute.

VARIABLE LABELS
support_index_01 'Support for reform'
success_index_01 'Confidence in reform'
confidenceinexperts_01 'Confidence in experts'
techoptimism_01 'Optimism about technological progress'
achoptimism 'Optimism about human achievement (Kuwaiti Nobel Prize winners)'.
Execute.

/*Demographic descriptives and balance tests (Appendix C)

MEANS TABLES=age religiosity income  BY Condition
  /CELLS=MEAN COUNT STDDEV.

T-TEST GROUPS=Condition (1 2)
  /MISSING=ANALYSIS
  /VARIABLES=age, religiosity,income
  /CRITERIA=CI(.95).

/* T-tests for independent means to compare long term vs short term on dependent variables

T-TEST GROUPS=Condition (1 2)
  /MISSING=ANALYSIS
  /VARIABLES=support_index_01 success_index_01 confidenceinexperts_01 techoptimism_01 achoptimism
  /CRITERIA=CI(.95).



